home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / aclock / frmreg.frm (.txt) < prev    next >
Visual Basic Form  |  1999-08-04  |  6KB  |  201 lines
  1. VERSION 5.00
  2. Begin VB.Form frmReg 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Registration of KF4ZPB Web Prowler"
  5.    ClientHeight    =   2400
  6.    ClientLeft      =   36
  7.    ClientTop       =   324
  8.    ClientWidth     =   6960
  9.    Icon            =   "frmReg.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2400
  14.    ScaleWidth      =   6960
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin VB.CommandButton save 
  17.       Caption         =   "Quit + Save"
  18.       Enabled         =   0   'False
  19.       Height          =   492
  20.       Left            =   5760
  21.       MousePointer    =   10  'Up Arrow
  22.       TabIndex        =   9
  23.       Top             =   1560
  24.       Width           =   1092
  25.    End
  26.    Begin VB.TextBox Text2 
  27.       Height          =   288
  28.       Left            =   1200
  29.       TabIndex        =   3
  30.       Top             =   480
  31.       Width           =   5652
  32.    End
  33.    Begin VB.TextBox Text1 
  34.       Height          =   288
  35.       Left            =   1200
  36.       TabIndex        =   2
  37.       Top             =   120
  38.       Width           =   5652
  39.    End
  40.    Begin VB.CommandButton Quit 
  41.       Caption         =   "Quit W/O Saving"
  42.       Height          =   500
  43.       Left            =   3360
  44.       MousePointer    =   10  'Up Arrow
  45.       Style           =   1  'Graphical
  46.       TabIndex        =   0
  47.       Top             =   1560
  48.       Width           =   1092
  49.    End
  50.    Begin VB.CommandButton verify 
  51.       Caption         =   "Verify Registration"
  52.       Height          =   500
  53.       Left            =   4560
  54.       MousePointer    =   10  'Up Arrow
  55.       Style           =   1  'Graphical
  56.       TabIndex        =   5
  57.       Top             =   1560
  58.       Width           =   1092
  59.    End
  60.    Begin VB.CommandButton Command1 
  61.       Caption         =   "Thank You"
  62.       Enabled         =   0   'False
  63.       Height          =   500
  64.       Left            =   5760
  65.       MousePointer    =   10  'Up Arrow
  66.       Style           =   1  'Graphical
  67.       TabIndex        =   10
  68.       Top             =   1560
  69.       Visible         =   0   'False
  70.       Width           =   1092
  71.    End
  72.    Begin VB.Label Label10 
  73.       Alignment       =   1  'Right Justify
  74.       Caption         =   "
  75. 1999 Carroll Dearstone - KF4ZPB"
  76.       Height          =   252
  77.       Left            =   3720
  78.       TabIndex        =   11
  79.       Top             =   2160
  80.       Width           =   3132
  81.    End
  82.    Begin VB.Label Label4 
  83.       Caption         =   "Reg Code #2:"
  84.       Height          =   252
  85.       Left            =   120
  86.       TabIndex        =   7
  87.       Top             =   516
  88.       Width           =   1092
  89.    End
  90.    Begin VB.Label Label3 
  91.       Caption         =   "Reg Name #1:"
  92.       Height          =   252
  93.       Left            =   120
  94.       TabIndex        =   6
  95.       Top             =   156
  96.       Width           =   1092
  97.    End
  98.    Begin VB.Label Label2 
  99.       BackColor       =   &H80000012&
  100.       Caption         =   $"frmReg.frx":0BC2
  101.       ForeColor       =   &H000000FF&
  102.       Height          =   612
  103.       Left            =   120
  104.       TabIndex        =   4
  105.       Top             =   840
  106.       Width           =   6732
  107.    End
  108.    Begin VB.Label Label1 
  109.       BackColor       =   &H00FFFFFF&
  110.       Enabled         =   0   'False
  111.       BeginProperty Font 
  112.          Name            =   "Arial"
  113.          Size            =   10.2
  114.          Charset         =   0
  115.          Weight          =   700
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       ForeColor       =   &H00FFFFFF&
  121.       Height          =   252
  122.       Left            =   120
  123.       TabIndex        =   1
  124.       Top             =   120
  125.       Visible         =   0   'False
  126.       Width           =   6732
  127.    End
  128.    Begin VB.Label Label5 
  129.       BackColor       =   &H00FFFFFF&
  130.       Enabled         =   0   'False
  131.       BeginProperty Font 
  132.          Name            =   "Arial"
  133.          Size            =   10.2
  134.          Charset         =   0
  135.          Weight          =   700
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       ForeColor       =   &H00FFFFFF&
  141.       Height          =   252
  142.       Left            =   120
  143.       TabIndex        =   8
  144.       Top             =   480
  145.       Visible         =   0   'False
  146.       Width           =   6732
  147.    End
  148. Attribute VB_Name = "frmReg"
  149. Attribute VB_GlobalNameSpace = False
  150. Attribute VB_Creatable = False
  151. Attribute VB_PredeclaredId = True
  152. Attribute VB_Exposed = False
  153. Private Sub Command1_Click()
  154. Unload Me
  155. End Sub
  156. Private Sub Form_Load()
  157.        If GetSetting("WebProwlerReg", "Options", "Code1") <> "" Then
  158.            Command1.Enabled = True
  159.            Command1.Visible = True
  160.            save.Visible = False
  161.            Quit.Visible = False
  162.            verify.Visible = False
  163.            Text1.Visible = False
  164.            Text2.Visible = False
  165.            Label3.Visible = True
  166.            Label4.Visible = True
  167.            Label1.Visible = True
  168.            Label5.Visible = True
  169.            Label1.Caption = GetSetting("WebProwlerReg", "Options", "Name1")
  170.            Label5.Caption = GetSetting("WebProwlerReg", "Options", "Code1")
  171.        End If
  172. End Sub
  173. Private Sub save_Click()
  174. SaveSetting "WebProwlerReg", "Options", "Name1", Label1.Caption
  175. SaveSetting "WebProwlerReg", "Options", "Code1", Label5.Caption
  176. MsgBox "Must refresh settings; Closing"
  177. Unload Me
  178. End Sub
  179. Private Sub verify_Click()
  180. If Text1.Text = "KF4ZPB Web Prowler User" And Text2.Text = "1d5a7o64491A" Then
  181. Label1.Visible = True
  182. Label1.Caption = "Registered to:KF4ZPB Web Prowler User"
  183. Label5.Visible = True
  184. Label5.Caption = "Registration #: 1d5a7o64491A"
  185. save.Enabled = True
  186. save.Visible = True
  187. Text1.Enabled = False
  188. Text1.Visible = False
  189. Text2.Enabled = False
  190. Text2.Visible = False
  191. Label3.Visible = False
  192. Label4.Visible = False
  193. save.Enabled = True
  194. save.Enabled = False
  195. MsgBox "Sorry you have entered a wrong Registration Name and Code."
  196. End If
  197. End Sub
  198. Private Sub Quit_Click()
  199. Unload Me
  200. End Sub
  201.